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KAPKIT is a utility program for the ZX81, TS1i000 and 
TSi500. It is written in machine code. Routines 
included are REM generator, linets> delete, copy 
ILDIR and LDDR), line address, lineis? length, IN, 
OUT, change ramtop, ramsave and ramload. KAPKIT 
differs from other utilities. KK is written with all 
Jumps relative, so it can be relocated anywhere. 
Each routine is separate from the others and will 
stand alone (though all make use of the Integer 
Input Subroutine.) All of the routines can be called 
either in the immediate command mode or from program 
lines. Mone of the system variable addresses are 
used for temporary storage, so there should be no 
conflicts. Bata entry and the USR call are made in 
the same line. 


The Integer Input Subroutine C1153 is at the heart 
of Kapkit. It provides a unique war of inputting 
numbers to machine code routines. You can input up 
to three numbers, variables, or expressions in the 
same line that makes the USR call. You can adapt 
your favorite machine code routines to call IIS. 


KAPKIT is quite long. This article divides KK into 
four sections. Each section starts with a decimal 
listing to be entered using a simple loader. 
Examples are given after each section of code. Take 
frequent breaks. SAVE your work often. KK’s 
flexibility makes crashing easier than in BASIC. 


Time to get to work. Make a i REM line which has 597 
spaces in it. (See Syncware News, July-Aug. “85, 
"Universal Printer Driver," Entering the Program, p. 
?.3 Add the line "2 REM." Enter the hex codes for 
IIS found in the HOT-Z disassembly. Or else use a 
decimal loader (see one below} to type in the KKi 
DECIMAL LISTING. Enter code from left to right and 
top to bottom. 


DECIMAL LOADER 


2000 DIM A$ 49 

2010 FOR F=1451i4 TO 14471 
2020 INPUT At 

2030 PRINT As; 

2040 POKE F,VAL At 

2050 NEXT F 

2060 STOP 


KK1 DECIMAL LISTING €146514-164713 


042 
216 
180 
254 
023 
170 
220 
034 
044 
034 
Q12 
203 
040 
186 
205 
032 
042 
250 
016 
035 


Optional 


100 
110 


REM 
REM 
REM 
REM 
REM 
REM 


024 064 227 223 035 227 
O32 0746 214 0°68 O79 231 
007 034 O22 044 185 040 
216 032 242 121 035 20° 
O10 229 247 225 237 174 
040 004 O27 018 035 229 
Qi2 247 117 O87 030 O01 
022 064 223 254 045 213 
O22 004 O21 231 214 028 
254 014 048 030 203 044 
ié7 203 023 203 023 203 
023 095 024 230 131 203 
003 O71 024 222 07? 231 
040 G07 207 013 205 144 
167 014 209 231 028 203 
006 1F7 184 040 247 024 
002 064 043 062 010 170 
0462 198 043 170 O32 245 
043 190 O32 239 035 054 
054 000 209 225 201 


REM lines can be used to store 
on how to use the routines. 
following preliminary 


KAPKIT (KK) 


S = KK STARTING ADDRESS 
5 = 16514 
ADDR = ADDRESS 


SOURCE = SOURCE ADDR 
DEST = DESTINATION ADDR 


KK LENGTH = 3?7 BYTES 
DOUBLE ASTERISKS (##) 


ARE "RAISED TO THE 
POWER OF" (SHIFT-"H")> 


For example, 
information. 


information 
type in the 


INTEGER INPUT SUBROUTINE 


TIS is intended ta be called by the other routines, 
but it can also be called directly. The following 
examples call it to show how to input integers. 


IIS reads integers it finds after the USR call. It 
places them in the HL, DE, and BC register pairs. 
The stack is adjusted sa that the computer thinks 
the line ends with the USF call. Thus, the integer 
in the BC register pair will be returned at the end 
of the call. Examples tell the story best. Type the 
following command. The double asterisk is the 
"raised to the power of" math function. To type it, 
hold the shift Ker down and press the letter "H." 
Whenever you come to an immediate command in this 
article tas below), type it in and press ENTER. 


PRINT USR 1651421 


The number "1" is printed to the top of the screen. 
How did it get there? IIS read the number after the 
double asterisk. "1" was placed in the BC register 
pair and the computer printed it. Actually, "1" was 
placed in all three register pairs. Here's a summary 
of the results of inputting up to three integers. 
Try all three print commands to see the results. The 
number in the BC register pair will always be 
printed. 


PRINT USR 1é35i4#«i 
‘HL = 1 DE = i BC = 19) 


PRINT USR ié5i4#«1#«2 
{HL = i BE = 2 BC 


2) 


PRINT USR 1é35i4ee#is#*e2%*3 
CHL = i DE = 2 BC = 33 


[iS reads hex numbers. There are two rules for 
inputting them. First, always start the number with 
the letter "H.* Second, always input a four digit 
hex number after the "H." Anything else will produce 
an error report. Try: 


PRINT USR 1é6514**HO010. 
The screen reads "146" decimal?) which is the Same as 


"10" ¢hex}. You can mix hex and decimal numbers in 
the input line: PRINT USR 14514##5##H00Z20. 


TiS reads variables and evaluates expressions. Type 
in a short program and RUN it. 


iO LET A=10 

20 LET B=20 

30 PRINT USR 145142%#A4 
40 PRINT USR 1é65142#2A16 
80 STOP 


The decimal numbers "10" and "30" are printed to the 
screen. There are three things to remember about 
expressions. You cannot use the "raised to the power 
of" math function within a KK expression. Bo such 
math before a KAPKIT cali: LET Z=A#*2, then PRINT 
USR ié6dide*Z. A letter "H" {immediately following a 
double asterisk? will always be interpreted as the 
beginning of a hex number. If you have a variable 
called "H," enclose it in parentheses, (H). The same 
goes for a variable name beginning with "H," 
CHOMERUNS?. Finally, you cannot mix decimal numbers 
and hex numbers in the same expression. The routine 
that reads hex numbers looks for a single hex 
number. 


The "#8" sign after a USR call is not regarded by 
IIS as a math symbol, but rather as an expression 
Separator. No math after the call is calculated. 
Math expressions put before the USR call will be 
evaluated. For example, try: 


PRINT 5+USR ié514##10 


"57 (decimal? is added to "10" ¿decimal? and the 
result, "15," is printed to the screen. This 
characteristic will come in handy later. Delete 
lines 10 through 40. 


You will probably find yourself referring back to 
this section quite a few times until you get the 
hang of inputting integers. Take your time and refer 
back as much as necessary. Flexibility in inputting 
numbers is one of the powerful features of KAPKIT. 
Now it’s time to go on to the MC routines. 


The first routines to install are REM GENERATOR (REM 

GEN> and DELETE. REM GEN will insert a Rem line Cire) KIKI. 
anywhere in your program listing, making it any size ` = 
you specify, and return to you the starting address 

of the generated line. Many BASICS allow you to N 

delete a whole block of program lines, but not (pte KK 2 
TSi0d00. DELETE will delete one or more program lines 

with one command. Type in the listing for these two 

routines Using the Hot-Z hex listing or the KK2 

DECIMAL LISTING. The code's starting address is 

146672 and the ending address is 146822. 


KK2 DECIMAL LISTING (16672-14822) 


205 231 002 033 O98 255 007 205 
202 010 229 197 235 033 240 216 
025 048 002 207 O11 235 205 2ié 
O07 043 173 003 003 i?7 003 003 
003 003 205 158 00° 173 209 035 
035 227 114 035 115 035 113 035 
i12 035 054 234 G11 O11 O35 054 
000 120 177 O32 248 054 117 052 
042 G07 044 203 116 040 O02 038 
040 035 205 2146 007 034 041 044 
205 007 002 193 201 205 231 O02 
033 013 255 00% 205 202 010 235 
033 240 216 00% 056 005 237 066 
025 048 002 207 O11 O74 105 205 
023 010 G56 251 017 213 205 216 
009 209 227 235 205 2146 009 209 
205 O93 010 O42 007 0464 203 116 
040 002 038 040 035 205 2146 00% 
034 O41 044 205 007 002 201 


Again add some program REM lines for future 
Preference. 

240 REM ...HOl TO USE KAPKIT... 

2435 REM 

250 REM --REM GEN-- {$ + i158) 


270 REM LET ADBDR=S+USR 14467222 
280 REM LINE NO.#*#SPACES 


300 REM --DELETE-- (5 + 243) 


320 REM RAND USR 16757 #*#LINE 
330 REM NO. 


350 REM RAND USR 1á757##15T 
360 REM LINE NO.#*2ND LINE NO. 


"S" in the above listing stands for "starting 
address." Since KK can be relocated, offsets are 
included. The offset for REM GEN is "+1538." Thus, if 
you relocate EK so it begins at 8172, then "59" 
equals Sif2. REM GEN would be called at 8172 + 1568, 
which is USR 8350. Later in this article, there are 
program lines which will relocate KK and calculate 
and print the new addresses. The following tutorial 
assumes that KK starts at ié45i4. 


REM GENERATOR 


»::U5R 1óá72##LINE NO. #25PACES 


Generate a 10 FEM line with 30 spaces in it and an 
"AE REM line with O016h spaces. Do so by typing in 
the following program and RUNning it. 


20 RAND USE 1é46/72%*%102230 

30 LET A=50 

40 LET ADDR=S+USR 14472##A22H0 
2i 


LIST iG to see lines 10 and 50, the lines REM GEN 
inserted into the program listing. ADDR holds the 
address of the first blank space in the line 50 REM. 
To write machine code to line 530, start writing to 
the address assigned to ADDR. REM GEN returns the 
address of the very beginning of the REM line, 
pointing ta the first byte of the line number. The 
number "3S" was added to that to return the address 
af the blank space which follows the REM token. 


The code of the character which fills the REM line 
is located in 14718 ¢414Eh>. It is currently a #0,” 
which prints as a space. Change it to suit your 
taste. To fill the REM line with "Xs," POKE 
ié47ig,4éi. 


One special note about large REM lines--some 
immediate commands will cause the screen to roll... 
and rolla.. and roll... and never stop until you 
pull the plug. If you make a line 100 REM with i000 
Spaces in it, immediately add the line 101 REM. 
Actually, you can add any program command you want, 
but make sure you have a line 101. Never delete line 
igi. This will prevent the rolling-crash. 


DELETE 


»--USR 1675722 LINE NO. 
».:USR 1á7537#ž#žist LINE NO.#*2¢éMB LINE NO. 


The DELETE routine will delete one or more program 
lines. Delete lines 10 and 50 with: 


RAND USR 14673572210 
RAND USR 1467572250 


LIST those lines to see that they are gone. Belete 
will delete blocks of program lines, too. Input the 
numbers of the first and last (¢2nd> program lines to 
be deleted. Ther and everything in between will be 
deleted. Try out a running program which deletes 
part of itself! Add the following program lines and 
RUN them. 


40 RAND USR 14737##10##á0 
70 PRINT "DONE" 
80 STOF 


All of the program lines have been deleted except 
Lines 70 and 80! If you ask to delete a line whose 
number is not in the listing, no problem...nathing 
will happen. Clean up the listing by deleting line 
70. 


Next add seven more routines. LDIF and LDDR are copy . 
routines. LINADDR returns the address of any program (LAR) KK3Y 
line. LINLEN returns the length of any program line 

or block of lines. IN and GUT are 1/0 routines. CAD KER 


RAMTOP will change Ramtop with no need to execute 
NEW. I am indebted to Richard &. Erwin for RAMTOF, 
which was first published in "Pro“file Updates.” 
Type in the listing, either the HOT-Z hex listing or 
the KKS DECIMAL LISTING for addresses 14823-149778. 


KK3 DECIMAL LISTING (16823-14778) 


205 231 G62 033 203 254 007 205 
202 010 237 174 213 205 007 O02 
i?3 201 205 231 002 033 185 254 
OO 205 202 010 237 184 213 205 
007 002 173 201 033 i47 254 00% 
2035 202 010 205 214 007 048 077 
201 033 154 254 O07 205 202 010 
233 033 240 2146 007 054 005 237 
066 025 048 002 207 O11 OF6 105 
203 023 010 054 251 O17 213 205 
216 O09 209 22° 235 205 216 00° 
207 205 023 010 201 033 110 254 
007 205 202 010 237 O72 0046 000 
201 033 099 254 007 205 202 010 
0468 077 237 O8F 201 033 086 254 
007 205 202 010 642 004 044 147 
237 114 227 193 042 004 064 235 
034 004 044 237 0446 247 235 237 
044 237 i746 O27 O27 027 O27 237 
083 002 044 201 


Add some more REM lines. 


360 REM --LDIR-- (S + 309) 

370 REM 

400 REM RAND USR 14823**50URCE 
410 REM #*£DEST.**NOQ. OF BYTES 
420 REM 

430 REM --LDDR-- (S + 327) 

440 REM 

450 REM RAND USR 16841**SOURCE 
460 REM #*DEST.**NOQ. OF BYTES 
470 REM 

480 REM --LINADDR-- (5 + 3453 
470 REM 

300 REM LET ADDR=USR 14852 
310 REM LINE NG. 

320 REM 

530 REM --LINLEN-- (5 + 358) 
340 REM 

350 REM LET LENGTH=USF 16872 
360 REM LINE NG. 

370 REM 

380 REM LET LENGTH=USR 1é6872%% 
370 REM 1ST LINE NO.##2ND LINE NO. 
600 REM NO. 

610 REM 

620 REM --IN-- (S + 402) 

630 REM 

440 REM LET A=USR 167142 PORT 
650 REM 

660 REM --OUT-- (S + 414) 

470 REM 

680 REM RAND USR 16728**PORT#* 
670 REM DATA 

700 REM 

710 REM --RAMTOP-- (5 + 426) 
720 REM 

730 REM RAND USKE 14740*#NEU 
740 REM RAMTOP 

750 REM 


LDIR and LDDR 


LDIR: ...USR 146923**SQURCE**DEST.**NO. OF BYTES 
LDDR: ...USR 14841**#S50URCE**DEST.*#*NQ. OF BYTES 


The two copy routines are named after the 780 
instructions they use. Both move large blocks of 
data very quickly. Data must be input in the 
following order: SOURCE address, DESTinatioan 
address, and NO. OF BYTES to copy. Here’s a program 
which makes a "50 REM" line with 20 spaces in it. 
Then it copies the first 20 bytes of KK machine code 
to the new REM line. Line 10 generates the REM line, 
and line 20 copies the data. The SOURCE is good old 
146514. The DESTination is the address REM GEN 
returns plus five. The NO. OF BYTES is 20: 


10 LET DEST=3+USR 1447222730822 
g 

Z0 RAND USR 14523##1451i4##DEST 
#220 


RUN the program and LIST 10. Take a look at line 306 
to see the result of the copying. LBIR increments 
addresses as it copies data -- it copies data 
®hottom-up." 


LODR copies data in the opposite direction -- “top- 
down." The addresses are decremented. Delete line 30 
to make room for a demonstration of LDDR. Edit the 
program lines. This time REM GEN will return the 
address of the end of the REM line. This is 
accomplished by adding 24 to the address which USR 
ié6é/2 returns. Line 30 will ask to copy 10 bytes. 


10 LET DEST=24+USR 1464722*30«« 
20 


20 RAND USR 146841#214514+17e2D 
EST##1i6 


RUN the program and LIST it. Line 50 will again have 


been added and has 10 bytes of KK machine code 
copied to it. 


Delete lines 10 through 50 to clean up the listing. 
The DELETE routine can be used: 


RAND USR 1467572210250 


LINADDR 


z=: USR 1485°2*LINE NO. 


This routine will return the beginning address of 
any program line. Find the address of the first 
lines: 


PRINT USR 1485¢##1 


The address 1450F is printed to the screen. You can 
even find the address of the Display File: 


PRINT USR 145857210000 
The address returned is for the beginning of the D- 


FILE,the 118d marker, and PRINT position "0,0" is 
located one address higher. 


LINLEN 


».:USR 1é68/722*2LINE NO. 
»-.-USR 14872*215ST LINE NO.#*LAST LINE NOD. 


LINLEN returns the length of one or more program 
lines. An empty REM line contains six bytes. Two for 
the line number, two for the length, a REM code, and 
an end of line marker. Check this out with: 


PRINT USR 1687222110 


The length of a whole block of program lines can be 
determined. Find out how many bytes of program we 
have so far in lines 1 through 750: 


PRINT USR 146872%#1#*#750 


IN and OUT 


IN: ....USR 1467142*#PORT 
OUT: -USR 146914#*#PORT**DATA 


TSi000 BASIC does not have IZO commands. IN will 
return the data from an I/D port. To input data 
through port 33d, use: 


LET A=USR 146716*##33 
PRINT A 


You can also send data out through a port. If you 
want to output 143d through port 585d, then use: 


RAND USR 16925##55*#143 


RAMT OP 


=: -USR 1é74022NEW RAMTOP 


Have you ever wanted to change ramtop without having 
to execute NEW? This routine will do it in a flash. 
To lower ramtop to 246K, use any of the following 
commands: 


RAND USR 14940 #224424 
RAND USR 1674022621024 
RAND USR 16940*2Hé800 


The first command uses a decimal number. The second 
uses a decimal expression, 26 times IK (iK is 1024 
bytes}. The third uses a hex number. All yield the 
Same result. After trying the above, confirm that 
ramtop was changed. PEEK the system variable, 
RAMTOP : 


PRINT PEEK 14386,PEEK 16389 


The results should be Od and i04d. 


The end is in sight. There are two more routines to ie 

add to KK. RAMSAVE and RAMLOAD are intended for use (AC) KK $y 
in a system where the addresses 48K to 44K have 164K } 
banks of RAM available. Programs and/or all 

variables can be saved to that area of memory with (TF) KKY 
RAMSAVE and called back again with RAMLOAD. The OUT 

routine can be used to access the different banks. 

Even if you do not have bank switching, the routines 

may still be of use to vou. Use your imagination! 

Type in the HOT-Z listing of hex numbers or the 

following KK4 DECIMAL LISTING to addresses Lé???—- 

i7viid: 


KK4 Decimal Listing ¢1é6?7?-17110) 


205 231 002 223 254 2146 040 002 
207 013 231 G42 020 064 254 053 
O32 005 017 O07 044 024 010 254 
O37 040 002 207 G14 237 OF1 016 
064 213 237 082 229 2435 231 033 
047 254 O07 205 202 010 241 11° 
035 193 113 035 112 035 235 225 
237 176 213 205 007 002 173 201 
205 231 002 223 254 214 040 002 
207 013 231 245 231 033 239 253 
00% 205 202 010 241 254 053 032 
008 190 G32 012 O17 OOF 064 O24 
013 254 057 032 003 190 040 002 
207 G14 237 O71 014 044 035 078 
035 070 035 229 213 235 205 200 
014 209 225 237 176 237 083 020 
064 195 OF1 000 


REM lines continue to hold information on the 
routines. Type in the following info. 


760 REM --RAMSAVE-- (5 + 4453 
770 REM 

780 REM (PROGRAM) RAND USR 
790 REM 16? 7?22P2*DEST 

#00 REM 

810 REM (VARIABLES) RAND USR 
820 REM 14697?e2V22DEST 

830 REM 

840 REM --RAMLOAD-- (5S + 529) 
856 REM 

$60 REM (PROGRAMO RAND USR 
870 REM 170432*P2*S0URCE 

580 REM 

870 REM (VARIABLES) RAND USR 
700 REM 17043*#V*2*S0URCE 

710 REM 


RAMSAVE and RAMLOAD 


Program Save: ....USR Ld4?7?#*#P**DEST 
Variable Save: ...USR 1497s2V2#DEST 
Program Load: ....-USR 17043#+#PF##50URCE 
Variable Load: ...U5R i 7043*2V2*S5QURCE 


Try out these routines. Move the whole program abave 
ramtop, then bring back a copy from high storage. 
Just in case of a crash, first SAVE the program ta 
tape ar disc! Ramtap is still set at 24K. Line iū 
will move the program to that location. Type the 
following program lines: 


10 RAND USR 14?79s2Ps*26424 
20 LIST i100 
20 STOP 


RUN the program. It will stop after executing the 
LIST command. Type NEW and ENTER. The program area 
will be empty. Now for. the big test. Ask the stored 
program to return a copy of itself to the program 
area. 


RAND USR 2727 782P##24624 


Press ENTER and, if all is well, the program is back 
and listed in less than a second. 


You can save all variables to RAM. Add the following 
lines and RUN them: 


10 LET AS="VARIABLES * 

20 LET BS="MOVED" 

30 RAND USR 169798422266 24 
80 STOP 


A copy of all variables now resides at 26424d. Press 
CLEAR and ENTER and try PRINT Áf and ENTER. Error 
report "2/0" indicates that A is no longer preset. 
Bring the variables back and print them: 


10 RAND USR 17043eeJe*26424 
20 PRINT A$ 

30 PRINT BS 

80 STOP 


RUN the program. The variables have been restored ta 
the program! Delete lines 10-80, and then reset 
ramtoap with: 


RAND USR 16757**10##80 
RAND USR 1é67402*He8000 


RELOCATING KAPEKIT 


KAPKIT will relocate itself to any area of RAM you 
specify. The LDIF routine will do thie. The SOURCE 
address will be 14514 and the number of bytes in the 
utility is 597. Specify the BESTination. To move it 
to 81723 (4000h), for example, use: 


RAND USR Lé6823*"*14514e"81 242597 


Finally, add program lines to LIST, SAVE and 
relocate KK. When you relocate KK, the new addresses 
for calling the routines are printed ta the screen 
and the program STOPs. When this happens, COPY the 
new calling address to paper for future reference. 


1000 REM ..LIST/SAVE/RELOCATE.. 
1010 CLS 

1015 SLOW 

1020 PRINT “i. LIST",,,,%2. SAVE 
"5,73. RELOCATE’,,, 

1030 LET A$=INKEY 

1040 IF A$="1" THEN LIST 100 
1045 IF A$="2" THEN GOTO 2000 
1050 IF A$<>"3" THEN GOTO 1030 
1060 PRINT AT 21,3;"INPUT NEW STA 
RTING ADDRESS" 

1070 INPUT S 

1080 FAST 

1090 RAND USR 168234*14514e«S<*5 
97 

1100 LET c=25. 

1110 CLS 

1200 PRINT "REM GENERATOR" ;TAB 

C ;S+158 

i210 PRINT ,,"DELETE LINE(S)";:TA 
B C:9+243 

1220 PRINT ,,"LDIR (COPY BOTTOM- 
UP)"; TAB C;5+309 

1230 PRINT "LDDR (COPY TOP-DOWN) 
";TAB C;S+327 

1240 PRINT ,,"LINE ADDRESS" TAB 
C;$+345 

1250 PRINT ,,"LINE¢S) LENGTH":TA 
B C:9+358 

1240 PRINT ,,"IN";TAB C:S$+402 
1270 PRINT "OUT";TAB C:$+414 
1280 PRINT ,,"CHANGE RAMTOP"; TAB 
C:8+426 

1290 PRINT ,,"RAMSAVE";TAB C:S+4 


1300 PRINT "RAMLOAD" ;TAB C;5+52¢ 
i310 STOP 

2000 REM ......-SAVE...... 

2010 CLS 

2020 PRINT "PRESS ANY KEY TO SAV 
E eppes n 

2030 PAUSE 4E4 

2040 SAVE "KE" 

2050 RUN 


Tt will be helpful to LLIST lines 240 to 700. This 
will provide hard copy on how to input data to KK 
routines. Like all new programs it will take time to 
learn how to use KK. This is especially true since 
KK has no input prompts. RUN the program and SAVE a 
final copy. 


ERROR REPORTS 


KK will return standard reports of “undefined 
variable," "out of memory," "integer out of range," 
etc. It alsa reports the following: 


C REM GEN, DELETE, LINLEN - invalid line 
number 

E IIS - first "*#" omitted, incorrect hex 
entry 

F RAMSAVE, RAMLOAD - "P" or "Y" omitted 
or incorrect 


--ADDING YOUR OWN ROUTINES-— 


You can add routines, but some Knowledge of machine 
code is required. Have your routine call the Integer 
Input Subroutine to pick up integers . Make use of 
the trick explained in SyncWare News, NOV.-DEC. “84, 
"Machine Code Topics," pp. 15-16. There’s no room ta 
add routines in the 1 REM line. Using REM GEN, make 
a 3 REM line with, say, 300 spaces in it and copy KK 
machine code to it using LDIR: 


10 LET ADDR=S+USR 146672%#3%*80 
0 

20 LET ROUTINE=USR 146823*#1451 
4A ADDR 5F7 

30 STOF 


The variable ROUTINE holds the address where your 
routine will start. There are three lines of 
mnemonics which make the IIS call. They will usually 
be the first instructions in the your routine. Other 
instructions can preceed them, but must not alter 
the data in the BC register pair. 


LD HL,Offset (where Offset is a number 
ADD HL,BC 
CALL GACA 


HOT-Z is great for calculating Offset. In the READ 
mode type in the starting address of your routine. 
Go into the WRITE mode. Set the END to the starting 
address of the IIS subroutine. Press Shift-Q@. END 
minus CURSOR (E-K? will equal the Offset needed. 


A short program will calculate Offset in decimal: 


3000 REM ...BECIMAL OFFSET... 
3010 REM 

3020 PRINT "IIS STARTING ADDRESS 
ee 

3030 INPUT Å 

3040 PRINT A 

2050 PRINT "ROUTINES STARTING 
ADDRESS? "3; 

3060 INPUT B 

3070 PRINT B 

2080 LET OFFSET=A-5 

3070 LET OFFSET=O0FFSET+( 455234 AN 
D SGN OFFSET=-1i>} 

3100 PRINT ,,"°OFFSET = *;:0FFSET 
3110 RAND OFFSET 

3120 ,,PRINT "33,";:;PEEK 14434;", 
"PEEK 16435,"°LO HL "; OFFSET 
3130 PRINT "Ọ" "ADD HL, BC" 

3140 PRINT "203,202,10", "CALL 2? 
S2; JP{HL?" 

31530 STOP 


KAPKIT opens new doors for T51000 programming. 
relocated it to my Hunter Board and use it all 
time. 


Chuck Peterson 
Box 8 
Alcester, 50 57001 
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